home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / tjgold.zip / INSTALL.003 / DEMDIR5.PAS < prev    next >
Pascal/Delphi Source File  |  1995-05-29  |  2KB  |  53 lines
  1. {--------------------------------------------------------------------------}
  2. {                Product: TechnoJock's Turbo Toolkit GOLD                  }
  3. {                                                                          }
  4. {                     TTT GOLD - DEMO PROGRAM                        }
  5. {                                                                          }
  6. {                Copyright 1986-1995  TechnoJock Software, Inc.            }
  7. {                           All Rights Reserved                            }
  8. {                          Restricted by License                           }
  9. {--------------------------------------------------------------------------}
  10.  
  11. {Description: DemDir5.pas
  12.               Illustrates using PromptDir to select a directory path.
  13. }
  14.  
  15. program DemDir5;
  16.  
  17. {$I GOLDFLAG.INC}
  18.  
  19. uses CRT, DOS, GoldAttr, GoldFast, GoldLink, GoldDir, GoldHard,
  20.                GoldMisc, GoldIO, GoldKey, GoldWin;
  21.  
  22. var DirName: string;
  23.  
  24. procedure SetScreen;
  25. {Paints the background}
  26. begin
  27.    Clear(WhiteOnBlack,'░');
  28.    ClearLine(1,YellowOnBlue);
  29.    ClearLine(25,LightCyanOnBlue);
  30.    WritePlain(8,25,'│');
  31.    WriteCenter(1,UseTint,' File List ');
  32.    GotoXY(1,1);
  33. end; {SetScreen}
  34.  
  35. begin { main }
  36. {$IFOPT D+}
  37.    HeapRecord;
  38. {$ENDIF}
  39.    SetScreen;
  40.    MouseShow(true);
  41.    DirName := PromptDir('','');
  42.    if DirName = '' then
  43.       PromptOK('','You Cancelled!')
  44.    else
  45.       PromptOK('','You chose '+DirName);
  46.    writeln('Press Enter to continue');
  47.    MouseShow(false);
  48.    Clear(LightGrayOnBlack,' ');
  49. {$IFOPT D+}
  50.    HeapCheck;
  51. {$ENDIF}
  52. end.
  53.